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mi tted -for publ i cat i on shoul d 
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printout. Clear handwriting is 
also acceptable. All programs 
must be on tape or disk and 
have clear instructions -For use 
and as much supporting 
documentation as possible- A 
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EDITORIAL 

The ar t i c 1 es whi ch 
appeared in the -first 
issues of the BEEBON 
written in house along with the 
editorial , etc. This issue 
its different as we have 
presented the best out of the 
contributed articles which we 
have recived over the last few 
months- In the last issue you 
may recall that I mentioned a 
BBC user group starting up on 
Merseyside, I am pleased to say 
that this group has now come 
into existence serving a large 
area of the North-West. The 
group meet twi ce a month i n two 
different locations, the first 
is held at the STEM buildings 
in Liverpool on the third ^^ 
Thursday o-f each month, the 
next meeting being on October, 
21st at the following address: - 



117, Grove St, 
By Myrtle St, 
LIVERPOOL 
FROM 7.30 PM 



The next meeting of the 
month is held at Birkenhead 
technical college some time 
this month for details ring Bob 
Perrigo, it is usually held at 
this addr 



OF 



BIRKENHEAD 
TECHNOL I GY , 
BOROUGH RD, 
B I RKENHE AD 



^ 



YOUR LETTERS 

Each month we will print a 
selection of letters which we 
consider of interest to owners 
of BBC micros. Some will 
constructive, we will be 
unbiased as possible. Writers 
of al 1 pr i nted 1 etters wi 1 1 
receive a BUG-BYTE tee-shirt. 
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Dear Sirs, 

Thank you -for two 
excel lent magazines.. The games 
Bl itz and Thargoids are 
extremely good, especially the 
sound and graphics of Thargoids 
and the uti 1 ity programs sr^ 
extremly useful. 

The onl y programmi ng 
problems I have encountered 
Here with Thargoids- At line 
600 & 630 you have opened 
i nverted commas to pr i nt 
blanks to the end of the line. 
I know this works on most 
micros, but the BEEB does not 
1 i ke thi s^ returning an 
appropi ate error message. 
However thi s is easi 1 y 
corrected by adding a second 
set o-f i nverted commas at a 
suitable point to blank out the 
previous contents o-f the 1 ine. 

The other probl em was 
the speed at which the setti ng— 
up routine in lines 390 to 600 
ran- This happened so quickly 
that it was impossible to read 
the heading produced by 1 ine 
390,470 and 550. I therefore 
i ntroduced the -f ol lowing delays 

so I could watch it all 
happening. 

445 PROCSLOW 
535 PROCSLOW 
595 PROCSLOW: PROCSLOW 
1395 PRINT TAB<0,0(; 
1650 DEFPROCSLOW 
1660 T I ME=ST: REPEAT UNTIL 

TIME=ST+50 
1670 ENDPRDC 

I wi sh the probl em 
with printed 1 i sti ngs ^^rom 
other sources were as easy to 
debug as this! 

As I have a model B^ I 
thought that a -Few simple 
changes should allow me to run 
the program in colour in Mode i 
and thus do -f ul 1 justice to 
your sp 1 end i d graph i c 
characters. The extra 
horizontal 1 ines do close the 
display up si ightly in a 
verti cal di recti on but not 
enough to make i t worthwhi 1 e 
al ter i ng the hei ght o-F the 
display. 



anyone still 

struggl i ng wi th the commands 
■for colour on the BEEB, the 
f ol 1 owi ng mods wi 1 1 gi ve the 
col ours of my choi ce . Any 
others can be chosen by 
altering the second bytes of 
the VDU 19 commands in line 5- 

5 MODE Is VDU 
19,0,7,0,0,0,19,1,1,0,0,0,19,2, 
ll,O,0,O, 19,3,0,0,0,0 

20 Delete MODE6 -from this 
1 ine 

165 COLOUR 3 
385 COLOUR 2 
465 COLOUR 1 
545 COLOUR 3 

965 IF TYPE=2 THEN COLOUR 1 
ELSE COLOUR 3 



Thi s gi ves bl ack 

(colour 3) text on a white 

(colour O) background, -flashing 

blue and yellow gloop holes, 

red (colour 1) Thargoids and a 

bl ack person - 

An addictive game 
which runs -fast very well - I 
can't keep my wife away -from 
it! 

Unl i ke many more 
unfortunate people , I had no 
problem to date with my BEEB 
apart from a 7 month delivery 
period ! However letters to 
Kettering (the phone is always 
engaged) about the new 1.0 ROM 
re: its cost and how it is to 
be f i tted and about some 
reimbursment for the loss of 7 
months interest on my money 
have elicted no response. Has 
anyone out there got any 
answers to thi s? 

Looking forward to the 
future do you have any plans to 
revi ew pr i nters and thi er 
interfacing to the BEEB. I am 
sure this would interest a lot 
of people. Alas an article or 
two on obtai ni ng the speci al 
effects and graphics of the 
BEEB i n machi ne code rout i nes 
woul d be appreci ated . 

Thanks agai n for 
produc i ng such a good magaz i ne. 

M. Benson 
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ED: Thankyou ^or the 
complimentry letter and the 
answers to some o-f the problems 
i n THARGD I DS - As to your 
questions on the new ROM, I am 
a-fraid we know as much 
yoursel-f but will try and 
you in-formed. 



Dear Sirs, 

I have enc 1 osed a 

short graphical program +or the 

BBC Model B which I would like 

you to publish in your 

magazine. The result is as -far 

as I know an undiscovered 

product. The triangles are 

striped and when one is drawn 

on top o-f another they 

giving an unusual e-f-fect- 

A.D.Lindsey(AGE 11) 
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MODE 
GCOL 
PLOT 
GOTO 



RND(i6),RND<7) 

85, RND ( 1280) , RND ( 1024) 

20 



NEW BUB-BYTE 



Look in the national 
magazines -for a full page 
advEN^t o-f our brand new 
adventure game " DR AGONQUEST " - 
This full feature adventure 
game i nc 1 udes sound ef f ects and 
full graphics representation of 
the creatures which you have to 
attack or the room you are 
currently in- The game consists 
of two levels, the first of 
which is available now, the 
second follows in a month or 
two- Both will be available for 
eleven pound fifty direct from 

through a 1 ocal BBC 



Two other new games have 
introduced into our range 
of BBC software. The first of 
these is a full feature FRUIT 
MACHINE game, it uses the 
graphics and sound capibilities 
of the BEEB to their fullest- 
It's features include smooth 
scrolling tumblers, HOLD 
buttons and NUDGE facilities. 
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APPLE RECEIVER FROM BEEB AND APPLE TO BEEB TRANSMITTER 
3LIST 

10 REM NK 3 OCTOBER '82 

20 REM 

30 REM RS232 IN SLOT2 

40 REM 8 DATA, NO PARITY,! STOP 
50 R = 49316! POKE R,3s POKE R,21 

60 GOTO 380s REM IN LIEU OF MENU 

70 REM PRINTER IN SLOT 4 

80 CALL 768 

90 GET A«s IF A* < > CHR« <27> 

THEN PR I NT A« ; s GOTO 90 
100 END 

110 REM BEEB TO APPLE DISK 
120 CALL 768 
130 DIM A*(200) 

1 40 E« = CHR% ( 27 ) ! REM ESCAPE 
ISO R« « CHR« (13): REM C/R 
160 FOR N = 1 TO 500 
^ 170 T = N / 5s IF T =^ INT (T> THEN 

T = FRE (T) 
180 A* = "" 
190 GET G* 
200 IF G« = E* THEN M = NsN = 50 

Os GOTO 230 
210 IF G« < > R» THEN A« = A* + 

G*s GOTO 190 
A»(N) = A«5M = N 



- \. 



230 


NEXT N 


240 


PRINT CHR* <7); DHR» <7) 


250 


INPUT " FII F NAME ? ";A* 


260 


IF 1 FN (A«) = THEN 240 


270 


A« = A« -t- "-BEEB" 


280 


PRINT 


290 


PRINT CHR« (4)"OPEN"A» 


300 


PRINT CHR» <4>"WRITE"A» 


310 


FOR N -= 1 TO M 


320 


PRINT A«<N) 


330 


NEXT N 


340 


PR I NT CHR« < 4 ) " CLOSE " A« 


350 


EHD 


360 


REM 


370 


REM APPLE DISK TO BEEB 


380 


DIM A«(200) 


390 


ONERR GOTO 480 


400 


PRINT 


410 


INPUT " FII F NAME ? "sA^sA* = 




A* + ".BEEB" 


420 


f^INT CHR* <4)"0PEN"A« 


430 


PRINT CHR* <4) "READ"A* 


440 


FOR N = 1 TO 200 


450 


GET S*s IF G» < > CNR* (13 



> THEN A* =* A* + G«s GOTO 45 

O 
460 A*(N) = A«sA* = " " 
470 NEXT N 
480 M = N 
490 PRINT CHR* (4)"CL 



I r 



300 PRINT CHR* (4) ••PfW2 



1 



510 FOR N = 1 TO M 
520 PRINT A»<N) 

5^0 MEXT N; ENQ 



APPLE MACHINE CODE SUBROUTINE 



3CALL-151 



»300LL 



1 

f 

i 

I 

I 



O30O- 


A9 


OB 




LDA 


««OB 


0302- 


85 


38 




STA 


«38 


0304- 


A9 


03 




LDA 


#«03 


030A- 


85 


39 




STA 


♦39 


030S- 


4C 


EA 


03 


JMP 


«03EA 


030B- 


A9 


15 




LDA 


#«15 


0300- 


8D 


A4 


CO 


STA 


*C0A4 


0310- 


AO 


A4 


CO 


LDA 


♦COA4 


0313- 


4A 






LSR 




0314- 


BO 


OA 




BUS 


♦0320 


0316- 


AD 


OO 


CO 


LDA 


♦COOO 


0319- 


10 


F5 




BPL 


*0310 


03 IB- 


8D 


10 


CO 


STA 


»C010 


031E- 


30 


03 




BMI 


♦0323 


0320- 


AD 


AS 


CO 


LDA 


♦COA5 


0323- 


48 






PHA 




0324- 


A9 


55 




LDA 


#♦55 


0326- 


8D 


A4 


CO 


STA 


♦COA4 


032 V- 


68 






PLA 




032A- 


09 


80 




ORA 


#♦80 


032C- 


60 






RTS 




032D- 


EA 






NOP 




032E- 


EA 






NOP 




032F- 


EA 






NOP 




0330- 


OO 






BRK 




0331- 


00 






BRK 
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BEEB TRANSMITTER AND RECEIVER 



PROG - BFFBL I ST 






lOOO 


»FX8,4 






1010 


»FX7,4 






1020 


«FX5,2 






1040 


»KEY9?8(0210= 


=8cOO 3 ?«t02 1 1 *«tOD ! L 


1050 


P7-=«tODOO 






1060 


C 






1070 


-START 






1080 


LDA#ec02 






1090 


JSR «cl-l-bb 


\ 


open gate. 


1 100 


• LOOP 






1110 


^ ^^w Wm^ ^m^ * 

LDA CcFEOS 


\ 


get ACIA status. 


1120 


LSR A 


\ 


check BIT O = 1 


1130 


BCC LOOP 


\ 


Fl SE try again. 


1140 


LDA «chb09 


\ 


get ACIA data. 


1150 


PHA 


\ 


hide it 


1160 


LDA #«(03 






1170 


JSR ScFFEE 


\ 


close gate 


iiao 


PLA 


\ 


recover data 


1190 


RTS 


\ 


and ex i t . 


1200 


] 






1210 


END 







r 



!M 
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... BBC BIGPRINT 

'^ ■BY TONY LORD?BitKS> 

If you have Dlayed with Mode 7 graphics you'll know that you can 
nrint double' heiqht characters. You can see what a dramatic 
i^nact that can have on your displays. However, you can't do 
Ih? in her modes and it would be useful! The program below 
^ noln Ic 3 PROC useable in Modes 1 and 4 directly and by 
"ha m r -Lrs'also can be adjusted for Modes 2 and 
5 The PROC is flexible in that it will copy any character 

^S%rr;'la;ge':L;LUrr(SAG = .5 say) aopear as huge blocks. 



# 



BIGPRINT 



Data : 



Action: 



Left hand X column of new 
Bottom Y row of new char 

Character 

Maanification multiplier 



char 



(LX) 
(BY) 

(AM 
(MAG) 



Check Maqnification Factor ^ = ^ _^ . . . 
Print character within permitted field 
Scan character for colour information 

and Store in CHARSTORE Matrix 
Draw Magnified Character 



PRINCHAR 
SCANCHAR 

MAGCHAR 



PRINCHAR 



Data : 



Left hand X 
Bottom Y of 
Character 



of permitted f iel d 

oermitted field 



(LX) 

(By) 

(A?) 



# 



Constant 



Action: 



SCANCHAR 



Data : 



X offset for LH col 
Y offset for bottom 
(adjust for MODE) 

Link cursors 
Move araohics cursor 
(LX+OX, BY+OY) 
Print character 



of char from L X 
row of char from 



BX 



to right position 



Left hand X of permitted field 
Bottom Y of oermitted field 
Row i ncrement 
Column increment 

(adjust RI.CI for MODE) 



(LX) 
(BY) 

(RI) 
(CI) 



^^Bl 



\ 



Action : 



Define Y co-ordinate as BY+IRI 

Repeat 

Define X co-ordinate as LX+|CI 

Reoeat 

Get POINT value of 
Increment X by CI 
Until done for all 
Increment Y by RI i 
Until done for all 



X,Y and store in CHARSTDRE (X,Y} 

8 colutnns 

Reset X co-ordinates 

8 rows 



MAGCHAR 



Data : 



Technique 



f 



Acti on : 



Left hand X of permitted field 

Bottom Y of permitted field 

Row i ncrement 

Col umn i ncrement 

Mannif ication multiplier 



(LX) 

(BY) 

(RI) 
(CL^ 

C>!AG) 



Plots Quadrilaterals of colour by plotting & 
filling in squares of colour. 

(This could be soeeded ud by plotting adjacent 
similarly coloured blocks at the same time!) 

Define Yl co-ordinate as BY 

Repeat 

Define XI co-ordinate as LX:MOVE to (X,Y) 

Repeat 

For this square : 

X2 = X1+ (Column increment x magnification) 
Y2 = Y1+ (Row Increment x magnification) 



<^ 



then : 



MOVE 
Fill 
Fill 



to XI ,Y2 

trianale to XI ,Y1 
triangle to X2,Y1 



and : 



r 



New XI = old X2 



Until done for all 8 columns 

New Yl = old Y2 : Reset X1=LX 
Until done for all 8 rows 



V 
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10 MODE 4; DIM A$ ( 1 ) , CHARSTORE ( 8 , 8 ) 

20 PRINT "BIGPRINT DEMO PROGRAM" 

30 INPUT "X,Y CO-ORDS FOR BOTTOM LH CORNER", X,Y 

AO INPUT "CHARACTER FOR PRINTING", A3 



50 INPUT "MA6NIF1CATI0N(>1 )" , MAG 

60 IF L£N(A3)<>1 OR IF MAG < 1 OR X<0 OR X > 
Y>1092 THEN RUN 

70 PROC BIGPRINT(X,Y,AS,MAG) 
80 END 



1248 OR Y<0 OR 



^ 



100 
110 
120 
130 
140 
150 

200 
210 
220 
230 
240 
250 
250 



DEF PR0CBIGPRrNT(LX,BY.A3,MAG) 
IF M<1 THEN ENDPROC 

PR0CPRINCHAR{LX,BY,A3) 

PROCSCANCHAR(LX,BY) 

PROCMAGCHAR (LX,BY,MAG) 
ENDPROC 



DEF PR0CPRINCHAR(LX,BY,A2) 

LOCAL OX,OY 

0X=0 : 0Y=28 

VDU 5 : REM LINK CURSORS 

MOVE(LX+OX,BY+OY) 

PRINT LEFT?(A?,1 } : VDU 4 

ENDPROC 



REM SEPARATE 



m 



300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



DEF PROCSCANCHAR{LX% .BY%) 

LOCAL RI%,CI%;R0W«/,C0L?:,X5 

RI%= 4: Cir. = 4" 

FOR ROl*l%= O TO 7 

FOR COL%= TO 7 

X%= lX%-\- Cl% DIV 2 + 

"{%= iy%+ RI% DIV- 2 + 

CHARST0RE(C0L%,P0W%)=P0INT[X1Y 
NEXT C0L%: NEXT ROW% 

ENDPROC 



CI%*C0L% 
RI%*COL 



} 



400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
550 



DEF 
LOCA 
PI% = 

yri% = 

FOR 
MOVE 
FOR 
GCOL 

yz'^ = 

MOVE 
PLOT 
PLOT 

Xl% = 
NEXT 

Y1% = Y2^^: Xr^ = LX 



PROCMAGCHAR(LX%.BY%,MAG%) 
L CI%,RI%,ROWr.,COL%,Xl%,Yl 
4*MAG%: CI%=4*MAG% 
LX^;: Y1% = BY% 

ROW%0 TO 7 FOR ROW'i; = o TO 7 
Y 1 0/ Y 1 ? 

C0L%6 TO 7 FOR COL%=0 TO 7 

0,CHARST0RE(C0L1P0W%) 
Y1%+RI%: X2%=X1%+CI% 



MOVE X1%,Y1 



X1%,Y2% 
85,X2%,Y1 
85,X2%,Y1% 
X2?{ 
COL 



0/ 



NEXT 
ENDP 



ROW% 
ROC 



»X2%,Y2 
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POSSUM 

Nith th-=- advent of ineKPensive m i crocofriputers <£.Peciai schools 
ha%"^ not been siow t.o realise the potential power that has 
suddenly been (riade available to thefn. This short program was 
designed for use by Physically disabled PUPiiSv many of whorr! 
do not hav^ the power of speech. Prior to the use of a 
computer with its VDU they were unable to see the results of 
th^ir efforts on the conventioal Possum typewriter. 



T 



ihi 

it 



s 



II 



II 



possum i nterf ace w 



initial program allows the production of tent files a^r,d 
is hoped that as prosram development takes Place the 

M be incorporated in to conventional 
teachins programmes. The developers aiso t-^Jish to exPiore, the 
possibilities of Possum tie ins used by the d i sab 1 t^-d tu write 
Vn-ir owm programmes- To further this aim the majority of 
pnssum is written in BflBIC In the hOPe that this wi i i a! low 
disabled programmers to modify Possum itseif - eventuaiy 
giving them control over their own environment. Only when 
i,his is so wilt the advantages of this new technoiosy be 
being exploited to the full. 



This version of Possum was 
Education Authority and 
comments or offers of help 



produced for use with! n th 
we would be most grateful 
from local BBC owners. 



U't r ra! 

for any 



<^ 



Please contact 



,- A 



9i 1 ec Wood (Seconded Teacher Uomput i ns ) 
Education Office Pdvisers Section 
C 1 eve I and Street 
Bi rkenhead 



f'ossum displays the character set as a matrix and the-' 
d isabi ed user can control a cursor from two sw i tches. These 
can be the original 'Puff and Suck' or any conventional Push, 
to make microswitch. The first switch moves the cursor along 
the matrix and the second switch moves the cursor up. 
Pressing the first switc^i again enters tho character at the 
cursor posi t ion. 



The two programmes here were developed on a BBC model B but 
could run on a model fi w:th memory and user port upgrades. 
They enable the handicapped person to use a computer without 
touching the keyboard. The first program is the "Possum Input 
-unction". This is used in a conventional program as a 
^unction instead of an JNPUT statement. 



<^ 



eg^ 



<STRI!MG VftR I aBLE>-FNPGSSUn(:< PROMPT)) 



PROHPT can be eith^ 
ftt the moment these 
long because double 



f\- a variable name or a iiterai in Quotes, 
strings have to be under aS characters 
height characters are used on the screen. 



The function has the fun alphabet and upper and lower case 
can be switched by selecting <Cfl> . The full set of digits and 
severa i symbo ! s are a I so d i sp 1 a.y^'d. Characters are co 1 ou r 
coded. Control characters being sreen. tetters blueT and 
numbers and symbols red. The matrix columns and rows are 
numbered in magenta. <BS> is a ha.cHspa^C'^ with delete, <SP> 
gives a space, and <CR> acts as the norma! RETURN key. 



SEE- DIAGRAM B ON INSERT AND PAGE 13 ONWARDS 
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10 RE^1^■+■■^■*.f:* + 'f:*'f:^^■:^^:j+:*!^■:.■^:*/^;4:^^:4:^^:>^:>l■:>^:>^■:■4:*H■: 
20 REH4:* + * + + >t:*4:>t:* HL I EN >!■:***: + !+:.+:>*: + * + 

30 REM*+--+-++^:* BY I.CROSSLEY ***=*:4:** 

50 REM 

S0 MODES -VDU 19, ii 3?0; 13, 0, G;05 23;S202;0;0;0; 

70 COLOURl 

S0 GCOL0, 2 

30 PLOTSg, '3&0, 0:PLOTb3r 400, 0:PLOTS5, 640, 400 
100 PRINTTPtBO, 10)"ft LIEN" 
110 fi=INKEY(:200) 

120 DiMP?iC20, 20) :ay~0i: ax=0: yy~0; yx=0 
130 M0DE4 
140 PROCINST 
150 R=-RNDi:i0) 

160 F0RX-iT0RsXX-RND(:iS)rF0RY=lT0i9:fly.(XX,Y)=-l:NEXTY, X 
170 R=RNDa.0) 

FaRX==lTOR:XX-l + RNDaS) :F0RY=lTai9:R%CY, XX)=-1 :NEXTY, X 
X-==RNDC20> :IFfty.(:x, l>==^~iTHENfi%(X,0)=-l ELSE GOTO190 
X=RND(20) :IFft%(:i9, X)=-iTHENfl%(:20, X>=~1 ELSE 0010200 
YX-RND(i0)+5:YY^RND(i0)+5:IFA%(:YX, YY) <>~1THEN210 

ftX^RND(:20) :flY==RND(20.J sIFftX=YX ftND PlY=YY THEN 220 

IF ft%(ftX, ftY) O-i THEN220 

MODEl 

PRINTTfiBCS, 20) "ftFT"TttB(4, 21 ) "^"TflB(4, 22) " I " 
VDUiS, 1,9^0? 

COLOUR 1 

PRINTTftB!:0, 4)CHR$c:224); :C0LOUR3: PRINT" = 9LIEN" :C0L0UR2: PRINT' CHR*<2':>4 ^ 
)? :C;0L0UR3: PRINT" = YOU" 

290 VDU2S, 0, 31, 39, 28, 24, 0? 12S; 1279; 1023;29,0; 123; 

300 MOVE320, 0:DRftW992, ' 

310 DRf^W992, &72:DRttW320, G72:DRftW320, 

320 FORX-320TD992STEP32:PLOTEg, X, G72:DRfiWX, 0: PL0TG9, 320, X-320 : DRftW992, X-32 

0:f\iEXTX 

330 REM ++>t:++****H:*fl-:!f;**+:*!+:*:t:+st:* 

340 e3COL0, 0:PLDT69,332+yK, 10+yy ; PLOTGg, 340+yx, 10+yy : PL0TS5, 332+yx, 26+yy :PL 
DT:35, 340+yx,2G+yy 



1S0 
130 
200 

220 
230 
240 
250 
2b0 
270 
2S0 



! 



35 







PL0TG9, 332+ax , i0+ay : PLQT&g, 340+ax, 1 0+ay : PLOTSS, 332+ax , 2G+ay : PL0TS5, 340 

.f^0 yx=:^yX:+=32: yy=YYt=32 
370 GCOL0r 2 

3S0 PL0TG9, 332+yx, 10+yy : PL0T69, 340+yM, i0+yy : PL0T85, 332+yx, 2G+yy : PLQTSS, 340 
+ y X, :^"G+yy 

390 ax==fiX+32;ay=flY=+-32 
400 GCOL0, 1 

410 PL0TG9, 332+ax, 10+ay : PL0TG9, 340+ax, i0+ay s PL0TS5, 332+ax, 26+ay : PL0T85, 340 
+ax, :,:::&+ay 

420 CLS SPRINT "You can eo "; 
430 ft^a : P=0 : S-0 : F-0 

440 IFfty-CYX + l, YY)^-lTHENPRINT"Port ";:S=1 

450 IFm%(:YX-l,YY>^-lTHENPRINT"Starboard ";:P=1 



(a 



ABB IFfi%CYX,YY+l)=~lTHENPRINT"flft ";:fl=l 

470 IFfl%CYX,YY-l)=-iTHENPRINT"Forward ";:F=1 

480 PRINT' " Which way ?" 

490 *FXi5 

500 fl*=INKEY*C300) 

510 IFfl*^*'W"THENYY=YY+fl:IFft=0 THEN X1=YX :Y1=YY+1 : PROCBLOCK 

520 IFfi*="Z"THENYY=YY-F:IFF=0 THEN X1=YX :Y1==YY-1 : PROCBLOCK 

530 IFft*=''fi"THENYX=YX-P:IFP=0 THEN Xi=YX-l :Y1=YY!PR0CBL0CK 

540 IFA*="S"THENYX=YX+S:IFS=0 THEN Xi=YX+l :Yi=YY: PROCBLOCK 

550r IF YX=20ORYY=0THEN M0DE7: PRINTTftBCB, 18) "You are out of the ventilator 

shafts! '" "They have been sealed off and the al ien'" "blown into outer spac^-' "sDOT 
0760 

5G0 IFflX=YX AND flY=YY THEN VDU26, 12: PRINT" '"'' " You have been eat 

en by the""" ft L I E N !!"':GOTO7G0 

5743 fl=0 ! P=0 s S=0 : F-0 

580 IF fiX+l<20 AND ftV-CflX+l, PY) =-lTHENS=l 

590 IFfl?C(ftX-l.flY)=~lTHENP=l 

B00 IFfl>:(ftX, fiY+l)=-iTHENft=l 

610 IF ftY-i>0 AND fty.(:RX,ftY-l)=-lTHENF=i 

620 IF ftX>YX THEN AX=ftX-P 

630 IF ftX<YX THEN fiX==:flX+S 

640 IF ftY>YY THEN ftY=flY-F *^ 

550 IF flY<YY THEN ftY=flY+ft 

660 IFftX=ax/32 ftND ftY=ay/32 THEN GOSUB70B : GOTQBB0 

670 IFAX=YX AND ftY=YY THEN ^0026, 12: PRINT" '""' " You hav^ b^^n eat 

en by the""" ft L I E N !!""!GOTO760 

680 IFAX=20 OR ftY=0THENfiX=ax/32:fiY=ay/32:GOTO6G0 

690 GOTO340 

700 ON RNDC4) GOTO 710.720,730,740 

710 IF P=l THEN flX=flX-PsRETURN 

720 IF F=l fiND fiY-F>0 THEN AY=ftY~F: RETURN 

730 IF S=l AND ftX+S<20 THEN AX=AX+S: RETURN 

740 IF A=i THEN AY=fiY+A: RETURN 

750 RETURN 

7B0 PRINT' ""Do you want to Play again fiY/N)?" : A*=GET*; IFA*="Y" OR A*="y" T 
HEN CLEARSGOTO120 

770 IFft*<>"N" AND A*<> "n"THEN760 

780 END 

790 DEF PROCINST 

800 CLS 

810 VDU5:MOVE320. 1023: PRINT" A LIEN " :MOVE320, 1023: PRINT" _" <^ 

820 VDU4: PRINT 

830 PRINT'""You are trapped in the sh i ps vent i i ator" "" "system. You have no 

weapons and don't" 

840 PRINT' "know the Plan of the shafts," 

850 PRINT" "There are ONLY TWO exits, one forward"' ' "and on*=- port." 

8B0 PRINT' "The controls are:-" 

870 PRINT' '" W == AFT" 

880 PRINT"" Z = FORWARD" 

890 PRINT" " S = PORT" 

900 PRINT" " ft = STARBOARD" 



i 



•! 



11 



L\ 



910 



PRINT 



7 1 II 



is and where you '"'"are." 



You have got a motion detector to show"*' "you where the alien 



920 
330 
940 
950 
9G0 



*FXi5 

PRINT' "Press 'SPACE BfiR' to start. ";: REPEflT:UNTILGET*=" " 
ENDPROC 

DEF PROCBLQCK 

X1=X1*32:Y1=Y1*32 



970 GCOL0, 3: PLOTGS, 332+Xl , 10+Yl = PL0T69, 340+Xl , 10+Yi s PL0TS5. 332+Xl , 2&+Yi : PL 
OTS5,3A0+Xi,2G+Yi 

980 ENDPROC 



-^ 



MR, D-B- JOUBERT wrote to us sayings 



■I 



A-ft»r reading an article on sound prcxJuction 
investigate the relationship between digits 
actual -frequency produced from the Micro. 
By connecting a frequency-counter to the speaker 
that entering a "^^our" for frequency the note 
produced. By increasing digit by four the next 
was produced, etc. . " 



decided to 
and the 



leads I -found 
(130HZ) was 

(13HZ> 



er to list below for digits, notes and frequency- 



LIST OF DIGITS, NOTES, FREQUENCY. 



DIGIT 



NOTE 



FREQ- 



DIGIT 



NOTE 



tt% 






4 
8 
12 
16 
20 
24 



40 
44 
48 



60 
64 
68 



F2£ 
G2 



A2 



D3 



A3 



130 
138 
146 
155 
164 
174, 



81 



196 
207 



81 
61 
OO 
00 



.GO 
.08 
,94 
261,63 



18 
66 
13 



311 



76 F3£ 369. 99 
80 G3 392 - OO 
B4 G3£ 415. 30 

440 . 00 
466- 16 
96 B3 493. 88 
SORRY. SORRY, SORRY. The £ 
but the Osborne prints them 



out 



100 


C4 


104 


C4£ 


108 


D4 


112 


D4£ 


116 


E4 


120 


F4 


124 


F4£ 


128 


G4 


132 


G4£ 


136 


A4 


140 


A4£ 


144 


B4 


148 


C5 


152 


C5£ 


156 


D5 


160 


D5£ 


164 


E5 


168 


F5 


172 


F5£ 


176 


65 


180 


G5£ 


184 


AS 


188 


A5£ 


192 


B5 


shown 


above should 


as £ 1 


signs. 



really be*^ 



1? 



4 

i 



3 



I 



^ ^I!^:::::ppssum input function*..- 

S RiM*FIRST LINE QF PROGRflH. 

II RlmansteL Of INPUT" HELLO "R* use 
la rImRS^FNPOSSUM.;- HELLO")** 

^^ iP*.,******* YOUR PROORflM HERE ***** 



^ 



1 



90 REM 



100 RiM*LftST PORT OF PROGRfiH* 

ilt?l DEF FNPOSSUM<PR*> ^* w cr nr 

Hq LOCALXX, VY, X, Y, P, U. INP*, ft^^ M, F, UL 

130 RESTORE 
140 '?&FEG2=0 

ill ™^;^S^-"-^^^ :■ 



! 



5 30 IFPI*=" "THENFl* 

190 t:H*''^''^^;2*'!^^p"^y;-STR*a>-H" " :CH*<: X, S)=STR^CX) -h'' 

-700 FGRX-0TOS:CH*(.0.8-X)-oTR*f.XJ 

210 DftTftK.Q.6>0. -'+'*' _^ 

220 DflTftW.V, J.5,9. -^» ^^ 

-'-!;0 DftTflU,M. B.2,4.7, >. 



"sNEXTX 



240 DflTPR.D^V. 'S"'X, *^;;^^" ;;^ 

250 DATfi"Cft,;;.N,C,F,".;;;l^<'^ 

;70 DWTft"SP. ".E,Q.X'L,"LR. > Bb. >- 

^■80 UC=0:F-0:INP*="" 

IZ PR?NT™BC0, n>CHR*CI41>PR*TfiBC0. 12) CHR*C1.1 >PR* 

310 p=r.0:L=15 



z-^ 



O 



-.0 FQRY=1TO8!FORX=0TO8 

TB pRQCPRINT(;CH4f.X,Y),X*4+^.Y, 1) 

i^ XX=I= YY=8: PROCPRINT .XH*.: XX. YY) , XX*4.2, YY, 2) 

i ^S^f^NO F=0 ™--CPRINT.CH.:XX.YY),XX*..2.YY ..XX=XX. = IFXX 

^'<=^. IFM-^' «ND XXO0 THENF=l = PR0CPRINT.:CH*aX.YY),XX*4..,YY.l).YY-YY 
<™-- :: L F=I .. YY<3 ™R0CPRINT.H.XX.YY),XX*.2,YY,l)=F=.e^ 

-I XF.=. «N0 F=I «N. YY=e THENPROCPRINT.:CH*<XX, YY) . XX*..2. YY, 1) = E=0.OOTC 

^°410 PROCPRINTCCHtCXX, YY) , XX*4+2. YY, 2) 

4-'0 QOTO3B0 

430 DEF PROCCLS 

440 CLS 



6 



V 



V __k 



i™ pORX=0TO9:PRINTTflB<0. X).CHR*.;a.83) ,CHR»C157) -, 

Ijqs NEXTXiENDPROC 

480 DEF PRQCPRINT CRt, X, Y, C) 

^t fpS^^NDLlpT*.:^. n>="fi"RN.LEPT*C«*. » <=" Z..THENC0U=132 =0010550 

1^,1 FCX=20RV=l)fiNDC=lTHENC0L=^B5 

5G0 PRINTTflB(X,Y>;CHR*CCOL>;E*-, 

570 PRINTTPBCP^L); 

: 580 VDU255 

590 ENDPRQC 

' £00 DEF FNLCASECfi*) 

li i5|S"™t;>-°"™LEPT*C«, n < = "Z" THENB*=CHR*C«SC.LEFT*Cfi., !».. 

20> + " "ELSEB*-=P* 

=B$ 

DEF FNGET 



3 



;^?'Sk2T?.E = REPEAT = B=7.FE60 = UNTILB=255 OR ai.E=NTIME.200) 

fi=?&FEB(3 
IFft-255THENSS0 

IFtt=254THENA-i 

XFfi-253THENft=-2 

TPaS-^*'^+CHRlt->55) + '" "THEN350 

lFfit="S?: -iHiNPRQCCHARC -) .GOTD350 

IFflS=--"CR. "THEN =INP* 
IFA^:="BS. '■THENPROCBS--GOTO350 

,00 STOP 

DEF procchpr*:a*> 

IFUC-0THENP*-FNLCftSE(:fl*) „_p,,c,M -wpns 
PRINTTPBCP, L> ;LEFT*(fi*. 1) -P-P^S-L-VPDS 

INPIi^INP^+L.E^"^*'-^*' ^^ 
SSta' ENDPROC 
qE0 DEF PROCBS 
1^^ l^^^:S;iaS?™aHP*>-» =PRINT™bCP,L) , VDUt27:.nU127 = P=P-l 

gga ENDPROC 

900 FORY=iTOS:FQRX=0TOS ., . _„„„flNDLEFT9>CCHSCX. Y) , D < = "Z" )mDRIGHT*CCH*<.X 

-!,=.. ..THE.^u^s:Ss^^cH^a:Y5;-pRi™^ 



930 GOTO350 



14 



. 


mm 


\ 
1 


1010 




1020 




1030 


b 


1040 




1050 


■ 


1060 




1070 




1080 




1090 




1100 


1 


1110 




1120 


: i 


1130 




U40 


1 
1 


1150 


1 

^ 


11G0 




1170 




1180 


■ 


1190 


1 

1 
1 


1200 


h 


1210 


1 
1 


1220 


r 


1230 




1240 


i 


1250 




1260 




1270 




12S0 




1290 




1 300 




1310 




1320 



1330 



DEF PROCINIT 
DIMCH*<S,S>> PROOy. 60 

VDU23;S20210;0?0? 
FORC=0TO2STEP2 

py.= PRDGy- 
COPT C 
LDX #0 
.LOOPl LDR &-7C2S, X 

CMP #&-S4 
BEQ YEH 
.RINKl INX 

CPX #&90 
BNE LOOPl 

LDX #0 

. L0QP2 LDA S;-7CBS, X 

CMP #&S4 
BEQ YEHl 
. RINK2 INX 

CPX tt&90 
BNE LQ0P2 

RTS 

, YEH LDft &7C29, X 

CLC 

EOR #&-20 

STft &7C29. X 

JMP RINKl 

.YEHl LBR &7CB3. X 

CLC 

EOR #&20 
BTft &7CB9. X 
JMP RINK2 

NEXTC 
ENDPROC 



r\ 



E 

X 



^^ 



15 



"x 






-\ 



5 R^M PftO&RftV\ -DESt^M ftLfC VOoT* 



fi 



If 



":CH$t:X,S)=STR*i:X) + 



u 



11 • 



:NEXTX 



20 REM+:*+t4: I. CROSSLEY ***>f= 

30 REM**4:P0SSUM WORD PROCESSORt:+=+ 

40 REM**+-+***+*++++****++******'=+*'*"= 

50 REM INITIALISE 

&0 M0DE7 

70 PROCINIT 

80 UC==i;F=0 

90 FORY=lT07:FORX=iTOS 

REPtDH*: IFLENCP*) <3THENfl$=fl*+" 
I Fft*= " ' " THENft4=CHR* C &22 ) + " 
m$(XTY)=fi*:NEXTX, Y 
FORX-0TOS:CH$(:0, S-X)=STR*CX) + " 
DPTflK,Q,S,0, -,+,*, "TI. " 
DPTflW, V, J, 5, 9, =, #, "TO. " 
DfiTftU,M,B, 2,4,7, >,S 
DATRR, U, Y, ", ", X,-5-, >^^, "' " 
DPTft"CA, ",N,C,F, ". ", 1, <,3 
DftTftT, ft, S, H, P, G, Z, "CL. " 
DflTP"SP. ",E,0, I,L, "CR. ", "BS. ", " 
PROCCLS 
P-0:L=10 
FORY=iTOS:FORX=0TOS 

PROCPRINTCCH^CXtY), X»t:4+2,Y, 1) 
NEXTX, Y 
REM ENTER AND STRRT 

XX=0:YY=8:PROCPRINT(:CH*(:XX, YY> , XX*4+2, YY, 2) 
M=FNGET 

SOUND!, -15, i00*M+50, 2;B0UND2, -15, 100*M, 2 
IFM=1 AND F=0 THENPR0CPRINT(:CH*CXX,YY),XX>t=4+2,YY, l):XX=XX + l:IFXX>STHEN 



PR 



It 



IFM=2 ftND XXO0 THENF==l:PROCPRINT(:CH*CXX, YY),XX*4+2, YY, 1) :YY=YY-1:IFYY 



320 







330 



340 
350 
3E0 
370 
3S0 
390 
400 
410 
^ 420 
' 430 
440 
450 
460 
470 



1 



^ 

4 



IFM=1 AND F=l RND YY<S THENPROCPRINTCCHStXX, YY) > XX*4+2, YY, 1) :F=0:GOTa6 
XFM=1 AND F=l mu YY=S THENPROCPRINTiXH^CXX, YY) , XX+4+2, YY, 1) SF=0:GOTO2 

PROGPRINTCCH^CXXtYY), XX+4+2, YY, 2> 

GOTD2S0 

END 

DEF PROCCLS 

CLS 

LOCftLX 

FORX=0TO3 = PRINTTftB(:0, X) ;CHR*t:&S3> ;CHR*< 157) ! 

NEXTXiENDPROC 
DEF PROCPRINTCfl*, X,Y,C> 
LOCftLCOLvB* 
IFC=iTHENC0L=i32 
IFC=2THENC0L=i35 

IFC^lRNDCLEFT^Cft*, 1) <"Pt"DRLEFT*(fl*, 1)="-" >THENC0L=&81 
IFi;X=20RY=S)ftNDC==lTHENC0L~&S5 



^^7 



16 



.1 



* 



f 



tZ prin?tpe(X,y);chr*<:cql>;b*; 

III PRINTTftBCP.L); 

'=i->m ENDPRQC 

5^0 DEF FNLCRSE(:ft*> 

20)+" "ELSEB*=fi* 

570 =B^ 

SR0 DEF FNGET 

C1Q fl=?&FE60 

G-'a iFPl-255THEN&iB 

fr^O iFft=254THENfl=i 

G40 IFfl-253THENft--=2 

550 =W (^ 

G60 fi*=CH*aX, YY> MTuPWPROCCHfiRffl*^ :GOTa270 

■ IIS fFflti^p-.-THlNPROaCHBRC;::. -00X0270 

™ T^Ot-"PR "THENPROCPR!GOTO210 

?^^ lFfl*;"cl:: ..tHENPROCCR:PROCDISP.GD1D21.0 

760 IFR*="TI."THEN1150 

770 STOP 

7Pei DEF PROCCHflRLfi*^ 

lla IFVP0S>29THENENDPR0C 

^11 'FU'^=^^S!^f=S|!N?tL=VPOS-.P=PQS 

^^^ 1^?^;™b*P L ™* fi*. 1> ' ■.P.P0S = L=VP0S 

S40 ENDPROC 

S50 D^f' PRQCPR 

QB0 VDU2 

e70 PROCDXSP 

8S0 VDU3 

S90 ENDPROC 

900 DEF FROCCR 

iia PR0CCHttR':CHR*<:i3>):uI-LI-M 

920 ENDPROC "4i«THEN270 

1- ^^S;t^^^^^i™cuJ:ulSRE*c.n.-i. 

950 PRINT' '?"PREBB "5 

iG0 cHftN-OPENOUT<:OUT$> 

g7S FORX=iTOLI~l 



,<^ 



17 



I 



9S0 

990 

10iZI0 

1020 
1030 

1040 

1050 

1050 

1070 

LEFT*( 
10S0 

TORES C 
1090 
1100 
1110 
1120 
1130 
1140 
1150 




1190 
1200 
1210 
1220 
1 230 
1240 
1250 
1260 
1270 



FORY=iTOLENCSTORE$(:X> )-i 

BPUT#CHfiNTflSC(MID*(:STORE*c:X), Y, 1)) 

FQRUC=1TO10:NEXTUC 
NEXTY:BPUT#CHfiN. 13 
NEXTX 
BPUT#CHPIN, 
CLOSE #CHftN 
CLEftR:GOTOG0 
DEF PROCBS 

IFST0RE*t:LI.-J<>CHR*(i3)ftNDSTaRE*(:Ln <> " "THENPRINTCHR*C 127) ; :STORE*CLI ) = 
STORE*(;LI),LEN(STORE*CLI))-1>:P=POS:L-VPOS:ENDPROC 

IFL>i0THENSTORE*CLI)="":PROCDEC:P=LElM£:STORE$(:Ln)-i:STORE*CLI)=LEFT*(i 
LI), P) 

IFP>40THENP=P-40 

PRINTTRBCPtL); 

ENDPROC 

DEF PROCDEC 

IFSTORE*(:LI)=""THENLI=LI-i:L=L-l 

ENDPROC 

IFLEFT*t:BTORE*(:LI), 1) <>"#"THEN270 

IN*-RIGHT*(:ST0RE*£:L3:),LEN(:ST0RE*i:Ln)-i) 

FDRX=iTOi00:STORE$(:X) = "": NEXTX 

CLS 

PRINT*"';" PRESS PLftY ON TRPE" 

CH«N==OPENINaN*) 

LI = 1 

REPEPT 

X^BGETttCHftN 

IFX>0THEN STORE$(LI)=STORE*t:LI)+CHR$CX) 

PRINTCHRSCX) ; 

IFX=13THENLI=LI+i : PRINT 

UNTIL X=0 
RESTORE :GOTOS0 
DEF PROCDISP 
LOCftLX,Y 
CLS 

FORX==lTOLI:NTIME=TIME+G00:REPEflTUNTIL?&FEE0=253ORTIME^NTIME 

PRINTSTORESCX) :REPEftTUNTrL?SFE60=255:NEXTX 
ENDPROC 

DEF PROCINIT 
*FX5, 1 
LI = 1 

?&FEG2-=0:DIMCH4(:S, S),STORE*C100),PROG% &0 
FORC=0TO2STEP2 

tLDPT C 

LDX #0 

.LOOP! LDfi &7C2S, X 

CMP #&S4 

BEQ YEH 

. RINKl INX 



^ \ 



18 



Pi 



1^70 

iA90 

1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
15S0 
1590 
1&00 
1610 
1G20 
1630 
1640 
1650 
1&G0 
1670 
1680 
1690 



CPX #&90 

BNE LOOPl 

LDX #0 

.L00P2 LDft &-7CBS, X 

CMP #a-S4 

BEQ YEHl 

,RINK2 INX 

CPX #&90 

BNE L0aP2 

RTS 

,YEH LDft &7C29. X 

CLC 

EOR #&20 

STfi &-7C29, X 

JMP RINKi 

.YEHl LDft 8-7CB9, X 

CLC 

EOR #&20 
STft &7CB9, X 
JMP RINK2 



NEXT C 
ENDPROC 



^ 



BEEB TO TELETYPE SC/MP INTERFACE 
COPYRIGHT BOB PERRIGO 



ADDRESS 



il- 



oooo 

OOOE 
OOIC 
002A 
0038 
0046 
0054 



08 


C4 


01 


01 


19 


C4 


08 


35 


C4 


20 


31 


C4 


08 


3C 


C4 


SO 


32 


C4 


20 


C9 


04 


C4 


OO 


C9 


02 


C4 


40 


C9 


03 


C4 


48 


CA 


OO 


CI 


Ol 


D4 


40 


98 


FA 


CI 


OO 


CA 


01 


Ol 


C4 


00 


Ol 


19 


01 


C4 


91 


SF 


11 


C4 


OA 


CA 


02 


19 


40 


DC 


BO 


Ol 


C4 


8£i 


8F 


11 


BA 


02 


9C 


F3 


BA 


00 


C2 


01 


E4 


OD 


9C 


oe 


C4 


49 


CA 


OO 


C4 


OA 


90 


D3 


C2 


oo 


9C 


C7 


C4 


OD 


90 


CB 











^' 



printer 



After obtaining a nodel B the next 
Having looked at the bank bal 
usually a job for the -future- 



thing anybody wants is 

obtaining th 



it is 



Th 
low prices, 
nornally HO 
and they 
characters per 
LF after a CR- 



a lot of RS232 and 20iR/a teletypes around at 

which will give good but slow hard copy- They 

BAUD which is not available from the RS432 socket, 

not intelligent. i-e. They do not count the 

line and CR/LF on an overlapping line, or give a 



The interface shown gives these facilities on a teletype- 
The printer socket and ribbon cable cane from Technowatic Ltd, 
the SC/HP and the INS 8154 were on the old hK14 along with a 

of IC 16 <74LS08) which can be used as a buffer if 
requireo, i-e- if R1&2 inside the BEEB is below the 4.7K as shown 
in the diagram, pin 1 on the INS 8154 may not drive it- 




The 
prototyp 
ichine- 



94 bytes of prograe 
it is in ROM so the 



will work in 
old HK14 is 

I 

19 



mm or ROM- In the 
king as a dedicated 

SEE IICERT SIM: A. 



I 



/ 



1 



INTERLINK 



ty Nik KFLLY J « k October I982 



This article descri'bes a 1200 Baud link between a BBG'B' and an Apple, 



Interlink is very simple. If I want to send inforaation fron 
Apple to Beeb, a short progran makes the Beeb behave like a printer. To reverse the 
process, I reset both computers and run a similar program into the Apple, 



HARDWARE 



^ The hardware required is not complicated as both the Beeb 'B' and the 

serial card in my Apple use the 6850 ACIA. This ingenious chip handles the coding 
and decoding, parity, stop bits and all, throu^ two memory locations for 
• Read Status — Write Control • and • Read In ~ Write Out '. Ihe serial card 
came with a ribbon cable to a D25 socket and I added a short cable with 'domino' and 



D25 plugs. 



DOUr 



I also found that 



I had to put a mark on the Beeb and its plug, as the the 'domino* plug was reversible 



SOFTWARE 




I'll describe the Apple's software first. 

r 



computers 



02 processor chip, so the machine code is very similar. Unfortunately, Acorn and 



LSR 



•xample . 



short machine code program 



connects the 



second part. 



HSX 



For every 



character received, this main program puts HEX 
open the data gate. It then enters a loop. 



First it reads the ACIA status. If a character has been received. 



bit zero is set to one. 
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program would 'branch on 'Garry 



then close the gate 



If the ACIA is empty, the program checks the Apple's keyhoard, which also uses two 



addresses . 



HEX 



ligned 



If that 



location is still positive, the program tranches to the start of the loop. Otherwise, 
it resets HEX GOOO by accessing HEX GOlO then skips down to rejoin the serial route. 
In both cases, the character is temporarily stored on the stack while the ACIA gate 

is closed. 

As I've bypassed the normal Apple input route, which would have 

converted all lower-case letters to upper-case, I have to check incoming data in my 

program. The Apple stores BASIC commands in coded form, one letter per key word, 

but distinguishes them from strings etc by setting the bit 7 to one. 

confusion, the program masks this bit to zero before passing the dafe 



To prevent 



You must re-connect the Apple's normal operation with IB #0 after the transfer is 



things happen when you try 



The associated BASIC program uses the machine code to GKT one character 
at a time from the serial interface, and build up a string. This is necessary because 
the Apple does not have an INHJT LINE command, and INPUT would be confused by commas, 
colons etc. An ASCII 13 is the end-of-line marker, and that complete string is then 
stored in an array. An 'Escape' key, ASCII 2? ftrom the Apple's keyboard or 
VDU 1, 27 from the Beeb signals the end-of-file. The Apple then chimes twice and 
prompts for a file name, writing the string array to disk as a text-file. 



Heading it back is a very similar process. The program again uses GET 



read 



that it thinks is connected to the serial card. 

At the Beeb, though, things are a bit more complicated because there 
is an inscrutable UIA between you and the ACIA. I must thank Acorn for explaining 
how to make the RS423 show 'Busy' and close the gate, but I still don't understand 
why the design doesn't permit easier control, I suspect that the 100 interrupts per 
second from the TIME clock may be responsible, in which case there should be a 'Serial 

Register Back-up Byte' somewhere. Changing the contents of that would have the same 
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effect as the direct access in the Apple. It would certainly make the Beeb's serial 
input a lot ffester I 
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The present BASIC program sets up the "baud rate, and assembles the 
machine code in a convenient place, I've followed the example in Acorn User, with 
the JIM page for the code, and a defined key to connect the link, but a DIM PJS & l6 
on line one would do if the incoming program was higher numbered, or data was flowing 

through an INPUT statement. 

Ttie program opens the AGIA by sending a Control-B (Printer On). It 
then loops until a character Is caught, when it stores the data on the stack and 
closes the AGIA gate by sending a Control-G (Printer Off), 

To transfer from Apple to Beeb, you must run the set-up program, 
press f9 to put the Beeb into its LISTEN mode, run the Apple program to send the data 
across, then recover control with the BREAK key and OLD. Please check that the first 
line of the program is intact, as the first character received by the Beeb may be 
scrambled. If much data is lost, check the serial card parameters in the other 
computer. The AGIA should be set to 8 bits data, no parity and one stop bit, a«a 
the serial card should respond to the Beeb's CTS^IS signals. Please consult manuals, 
friends etc in case of difficulty. If all else fails, check the wiring. I had mine 
back-to-front the first time ! 
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Interlink was demonstrated at the September meeting of the Liverpool 



BBC & Atom group, and represents the first stage in a simple serial network. If 
you have modifications, improvements or suggestions, please send them to Beebon, or 
bring them along to us. We meet at STE3M, 117 Grove St, by Myrtle St, Liverpool 
between 7.30 and 9,30 PM on the Ihird Thursday of each month. Comments from 
Beeb users with OS 1.0 would be particularly welcome ! 



:■ 



?2 




u U L MlLIEl haFTMIffl hXC-4H4D HFTWME 



bl r- 



^ 



® 



S Jt * 






^K7 



66C rV\ODtL 6 PftftALLEL 

PRtNTEB CONNtcrOR 
n |7 (5 '3 *1 *» 7 f 3 

T T T T t 



A If Aeci>Ai<i'P 









n 



31 I 



j& n (S miiiz^ZH 



INS gfg't 






Rom 



MO OAwZf S£«rAL OmT 




i3 INS so6o 



isclr^f ) 



5^ 



lOK 




I-OhF 





T" y.TAL 



p^pfi.l 



BELB TO 

XtJTERFACe 



+ llx/ 



(o*» Am^) 




R.S. 232 o/^ 



I 



-t-fv' 



T 




7tM4- 



\toJl 



I-OhF 





rr-' + 



ZO^A o//* 



* TT-y - 



© ^ 



OA PcRfil&£> 



Otf^ ^d^'^ »-fS ^*"^ S'Oc/? 



he se»::ond prosrafri i s the "Possurri Word Processor*'. Th is ; s 



a 



^ef + conta ined program and has pt i nt^:-r and tape output 
rout i nes- fls yet there ^-av^ no ed i t i ns f ac ; I i t I ^s other than 
the <BS> delete- T>-te tape f ac i l i tv enables a program written 

usi us Possum to be ioaded back into the corriputer us : n^ ='^=E;XEC>. 
Pt the moment this has to be done via the normal keyboard by 
' an ab ! e person. The -format for ^;=">av i n^ to tape and for ; oad i XiS 
is to enter a fite name preceded by a Hash # . 



eg 



#F"1LE1 



This 



f i Sename must be on 



i s then ach i eved by 
I oad ^SPUDLed data. 



se \ ec 
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a c 1 ^^a r 
t n s < 1 
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i i ne. Tape Input or 
or <TD>, <TI> wi ! 
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When the '=ic reeri becoftUi'S f i i led with text it.fTiu<::tt be cleared 
usi YiS <CL> . Th i '=i dis"! ays PLL text ^;o far entered and then 
clears the screen st i l f remefuber i ng the text. <PF^> does the 
same thing but sends the output to a. printer connected to the 
paral le! port as we i ■ * 



The diagrafji below shows 
c o n n e c t e d t ci t- r^ e user p o r t '. 

used as sw i tchl ^ Flarthv and 
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Pins Bv7 

SWi tCh2, 



m i c rosw i tches shou t d foe 
and S ary£' respectively 
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SUMMARY 



51 moves the cu rsor a ! ong. 

52 moves the cu rsor up. 
SI then enters the character at 




the cursor. , 



<CR> 
<SP> 
<Cft) 
<BS> 
<CL> 
<PR> 
<T0> 
<TI> 



RETURN 
BRACE 

CHfiNGE ftLPHR 
BftCK BPPCE 
CLEAR SCREEN 
OUTPUT TO PRINTER 
OUTPUT TO TPPE 
INPUT FROM TORE 



n 



<CL> and <PR> wa i t after each screen 
pressed. This is to allow the user time to 
renu i red. 



i-i ne -for S2 to be 
read each 1 ine if 



These two programs could not have been written without 
i nf ormat i on s'\ ven by the staff of Cl atterbr i dse Spec i a I 
School 1 where field trials are now tak ing Place- In the 
future we are hoping to make the listings available in space 
provided on PRESTEL for ediicat i ona I users, 
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